Option Explicit
Sub Q_Sample055()
    Dim myRc As Long
    Dim myClassName As String
    myClassName = "XLMAIN"				'ExcelOW
    myRc = FindWindow(myClassName, vbNullString)
    MsgBox myRc
End Sub
